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EDITORIAL 


Ouf, nous sommes presque en 1987 et, enfin, le FORTH 83-Standard démarre en 
France. A l'allure où nous écoulons la version MSDOS, notre revue risque de 
s'orienter vers un public d'utilisateur PC et compatibles. Y-aurait-il comme une 
préférence pour ce système pourtant tant critiqué à son apparition? Alors n'ou- 
bliez pas vos ZAPPEL, ZATARI et cie pour faire le poids face à l'invasion des 
clones de ZIBEHEM. 


Et je m'arrète là, car j'ai la crampe du dactylo... 


(S'il y a des volontaires pour faire des éditos marrants, je suis preneur) 
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Forth 


Brevo à l'erticie de PETREMANN sur les variables locales . [1 faut rendre 
FORTH plus relisible . Même à l'écriture 1e manipulation et surtout 
l'optimelisation des PICK SWAP DROP ROT est souvent Lien trop 
lebarieuse . 

Pour ma part il y a une solution assez simple répondant à l'objectif de 
relisibitité mois ne se prétent pos au jeu de verisbles locales Elle est 
toutefuis à manier avec précaution puisqu'elle ne peut être employée qu'à 
l'intérieur d'une définition deux points . 


Elle consiste dans l'emploi de données que j'appelerei sam -canslantes 
qui fonctionnent de 18 façon suivante : 
- ou départ elles sont déclarées cumme des constentes salon les rêgles 
habituelles 
- en jecture elles restituent leur valeur par simple appel de leur nom tout 
comme les constantes 
- en écriture on chenge leur valeur à l'aide du mot TO ou misux -> pour 
une melileure relecture. Avec la syntoxe d'emploi suivante : 
. n -> Nom 
où nest ls nouvelle valeur déposée au préolable au sommet de lepile et 
Nom 18 nom de la pseudo-constente . 


Grace à cels nous revenons eu symbolisme mathématique courent où 18 
nom d'une variable représente sa valeur olors qu'en FORTH il ne 
correspond qu'à l'adresse mémoire de 8a valeur . 


Sens plus attendre voici le définition théorique du mot -> 

rep (n==  ) R> DUP 2+3R 6 2+ |; 

Les initiés comprennent très vite que le préceution d'emploi snnoncée plus 
heut provient de ta manipulation de le Return Steck qui ne peut * marcher” 
qu'à l'intérieur d'une définition deux- points . Préceution cependant très 
faciie à retenir et à observer . 


Pour bien comprendre le fonctionnement du mot quelques rappels sont 
nécessoires : 


Un CFA est une valeur pointent (ou l'adresse de } la position mémoire où 
commencent à proprement parler le définition spécifique de chacun des 
differents mots du dictionnaire Forth. 


C'est ainsi que la valeur d'une constante se trouve deux octets après 
l'adresse pointée per son CFA | . 
Dans le dictionnaire le définition comptiée proprement dite du mot -> qui 
s'écrivait ou clovier :-> R> DUP 2+>R © 2+ | ; se présente comme une 
suite de 9 cellules : 
le premiere contenent 1e CFA de : 
la seconde le CFA de R> 
lo3eme le CFA de DUP 
le deme le CFA de 2+ 
. la Seme 1e CFA de >R 
loéeme le CFA de © 
la 7eme le CFA de 2+ 
lo 8eme le CFA de ! 
le9eme leCFAde , 
Per oilieurs pour frnctionner l'interprète du FORTH s'appuie sur deux 
règles 
Règle 1: 
L'exécution d'un mot Al présent dans la Nième cellule d'une définition 
deux-points est toujours précédée par le chargement dans IP de l'adresse 
de is N+1ième cellule . 
Règle 2: 
Lorsque ce mot Al lui même obéit à une définition deux-points c'est à dire 
s'écrit ou clovier sous la forme : Al B1B82B3B4; 
flya, ovent execution de Bi, sauvegarde préalable sur la Return Stack du 
contenu de IP 
Le: déclenche cette souvegerde tandis que la restitution est déclenchée 
per le ; qui fait suite à B4 


Revenons à notre mot -> et considérons l'exemple suivent : 
5 CONSTANT  COUNT 
: OCOUNT O0 -> COUNT ; 
le corps de 10 définition de OCOUNT dons le dictionnaire comprend 5 
cellules 
le tere contient le CFA de : 


le 2eme le CFA de O ( considéré comme une constante } 
le 3eme le CFA de -> 

le 4eme le CFA de COUNT 

la 5eme le CFA de ; 


Décienchons maintensnt son exécution 
Lorsque O est déposé sur la pite 1P pointe déja sur ls 3eme cellule de 
OCOUNT ( ->} 
Lorsque l'exécution de -> commence IP 8 té incrémnté pour pointer sur 


te 4eme celiule de OCOUNT qui contient ie CFA COLINT 


Le: souvegerde dens le Return Steckl'adresse de cette dame cellule 
(regle 2 ) puis fait pointer IP sur le 2eme cellule de -> 
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VARIABLES LOCALES { Suite .) 


LES PSEUDO-CONSTANTES par Dominique GEORGE 


R> transfert dans la pile l'odresse de 1e 4eme cellule de OCOUNT 


Après duplicetion le séquence 2+ >R renvoie sur la Return Steck non plus 
l'odresse de 1s deme cellule mais celle de 18 5eme 


© donne le contenu de l'adresse dupliquée c'est à dire le CFA de COUNT 


2+ 1 modifie la vateur de le pseudo-constente avec la valeur O restée sur 
le pile 


le ;: de lo fin du mot -> restitue dans IP 18 contenu de la Retun Stack c'est à 
dire l'adresse de 18 Sieme cetluie de OCOUNT et amorce 18 fin du processus 
si bien qu'en fin de compte 1e mot COUNT a été proprement escemoté , ce 
qui éteit l'objectif recherché . 


Bien qu'essez conçis il est souheiteble d'écrire ce mot en ossembleur pour 
en faire une primitive oussi rapide que son homogue ! qu'il s vocation de 
concurrencer . 


Pour ma part travaillent sur Macintosh le solution est le suivante : 
CODE -> IP }+ DO WORD MOVE, 
PLIF, SP }+ DO 2 WORD A4 @1) LONG MOVE, NEXT THEN, 
SP }+ DO 2 WORD A5 @1) LONG MOVE, NEXT END-CODE 


Commentsires pour les fenas de MacFORTH: 


Le mot n'obeit pas à une définition deux -points : 11 n'y # donc pas lieu de 
manipuler 1e Retun Steck. 


En préoleble à l'exécution IP pointe déjo sur le cellule contenent le CFA 
( à plus proprement parler le token de lo pseudo constonte ) 


IP }+ DO WORD MOVE, post incrémente IP ce qui réelise l'escemotege 
ultérieur de l'exécution de 18 pseudo variable 


Si le contenu de DO c'est à dire le TOKEN de 18 PSEUDO-CONSTANTE est 
positif c'est à dire inférieur à 32767 le valeur à modifier est à l'odresse 
égole à la Somine du TOKEN augmenté de 2 et de l'adresse de 18 base du 
dictionnaire contenue dons le registre A4 ( relogeebiiité des blocs 
oblige ) 

Sinon le token négotif doit être ajouté à l'adresse contenu dans A5 


Une fois compilée cette définition tient en 14 oclecls dons le 
dictionnaire : 3015 GROG 299F 2 4ED4 2B9+ 2 4ED4 


Chopeau pour 18 puissance d'odresssge du 66000 . 


Pour ceux qui ne veulent pes cherger l'essembleur pour ce seul mot {1 est 
.possihle alars de passer per le définition 
HEX 


create -) -2 allot 3018 w, 6806 w, 299F w, 2 w, 4ED4 w, 
209F w, 2w, 4ED4 w, 


Avant de terminer remorquons qu'il y a intérêt à lut edjoindre l'équivalent 
du mot +1 lui aussi bien utile 

Son symbole sereit +-> sa syntaxe la même que pour -> et se définition 

: +2 (n--)R> DUP 2+5R @ 2+ +! 


: 


A vous de jouer . | | 


ratits QUE VOUS 


HORDE 
Ju WOE dE 
cs meme Wokds 


main 
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LE _LISP OBJET par Christophe LAVARENNE 


# | RERELARÉLENERRERERRRRRELRERAERERÉEREELERALERERÉEELELERRERESERRRRERÉEE 


ADAPTATION DE READ-EUAL-PRINT: 
{methode objet args} se lit (<objet.package>:methode objet args), 
dans ce cas la méthode est résolue statiquenent (plus efficace): 
{enethode objet args} se lit (SEND ‘methode objet args), 
dans ce cas la méthode sera résolue dynamiquement (plus général). 
Un objet est invariant et s'iaprime: {package (champ valeur)..} 
sa représentation interne est ALCVONE: #*(package . #[objuals]) 


CREATION DE NOUVEAUX OBJETS: 
l'objet racine prédéfini, {obj:} (aucun champ), est lié à OBJ 
{NEU objet} retourne une copie de objet; 
{NEU objet ‘var} retourne et lie à var une copie de objet; 
{NEU objet ‘var ‘((non val).)} lie à var une extension de objet 
avec les nouveaux chanps (non val)_ dont les néthodes d'accès 
sont crées automatiquement (dans le package <obj.package>:<uar>): 
{non var} retourne la valeur du champ non de l'objet lié à var 
{nom var val} donne la valeur val au chanp non de l'objet lié à var 


LISTE ET CRERTION DES HETHODES: 
{METHOD obj} retourne la liste des nons des méthodes locales à ob; 
{NETHOD obj ‘non} affiche (pretty) la définition de la méthode non 
{METHOD obj ‘non ‘(lvar body}} définit une nouvelle méthode de ob; 
(le premier argusent de la méthode doit être du type de obj) 


EXEMPLES : 
? {NEU 0BJ ‘point ‘((x 10})(y 20})} ; créons un nouvel objet: POINT 
= {#:obj:point (x 10) (y 20)} 


? point ; il est lié à l'atome POINT 
= {#:obj:point (x 10) (y 20)} 

? {x point} ; lisons son champ * 

= 10 

? {y point 15} | ; modifions son champ Ÿ 

= {5 | 

? {NEW point ‘pl} ; lions une copie à PI 

= {#:obj:point (x 10} (y 15)} 

? {x point 5} ; sodifions le champ à de POINT 
= 5 

? pl ; Pl n'a pas été nodifié 


{#:objet:point (x 10) (y 15)} 
? ; on peut bien sür irbriquer, tant dans les définitions. 
.? {NEU ob} ‘rect ‘((topleft {NEU point}) (h 30) (1 50))} 
= {#:obj:rect (topleft {#:obj:point (x 5) (y 15)}) Ch 30) (1 50)} 
? {x {topleft rect} 11} : .que dans les appels 
= 1 
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? {NETHOD point 'sove ‘(point dx dy) : créons une nouvelle méthode 
? {x point (+ dx {x point})} {ey point (+ dy {y point})} point}} 


._* #:obj:point :nove | 
: ? {NETHOD point} ; elle est dans l'espace de POINT 


= (#:obj:point:aove #:obj:point :x #:obj:point :y) 
? {NETHOD point ‘naove} ; vérifions l'effet de {e (SEND.) 
(de #:obj:point:aove (point dx dy) 
(#:obj:point:x point (+ dx (£:obj:point:x point}})} 
(send ‘y point (+ dy (#:obj:point:y point)})}) 
point} 
= 0 
? {aove pl 2 -3} -__ j ça marche ! 
= {#:obj:point (x 12) (y 12)} 


Et voilà: à vous de jouer avec Le Lisp Objet ! 
RE EEE RE RE EEE EE EEE EEE EEE EEE EE EEE | E 


(DEFURR #:sys-package:colon ‘obj) ; package par défaut 
(DEFURR obj ‘#(obj . #[])) ; objet racine, aucun chanp 
(SVNONYNOQ ‘package CAR) : lecture du package de l'objet 
(SYNONYNQ :objuals CDR) ; lecture du vecteur des valeurs 


(DE :super (obj} ; pour forcer la recherche à partir du package père 
(TCONS (PACKAGECELL (:package obj)}) (:objuals obj)})) 


; prédicat pour le type Le Lisp Objet = #(package . *[objvais]) 
(DE objp (obj) 
(AND (TCONSP obj) 

(ATONP  (:package obj)}) 

(UECTORP (:objvals obj)}) 

obj))} 


; adaptation de RERD: | 
ÿ {methode objet args} se lit (SEND ‘methode objet args), 
; dans ce cas la méthode sera résolue statiquement (plus efficace); 
ji  {enethode objet args} se lit (SEND ‘methode objet args), 
; dans ce cas la méthode sera résolue dynamiquement (plus général). 
(DMC 1{I CO) | 
-(LET ((:dynamic (HHEN (EQ (PEEKCN) */e) (RERDCH))) 
(:super  (UHEN (EQ (PEEKCN) */*) (RERDCH))) 
(:forme)) 
(HITH (CTYPECH ‘1}| ‘CHACRO)) 
(FLET (CII © 
(EXIT 1} 
(SETQ : forme (NREUERSE : forme)) : (method obj . args) 
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(HHEN : super 
(RPLACA (CDR : forme) (LIST ‘:super (CADR :forne)))}}) 
(CONS (IF :dynanic 'SEND ‘send) 
(RPLACA : forme (LIST ‘QUOTE (CAR :forme)))})})})}) 
(UNTILEXIT |} (NEUL : forme (READ)))})))) 


; SEND résoud statiquenent une forme de nène syntaxe que SEND 
ÿ  (SEND ‘methode objet _) donne (<objet .package>:methode objet .) 
(DND send (:met :obj . :args) 
(LET ((:method (GETFN (:package (EUAL :obj)) (EUAL imet}2)) 
(IFN :method 
(ERROR ‘send "ERAUDF (CONS (: package (EUAL :obj)}) (URL net}}) 
(AND (CONSP :obj) (EQ (CAR :obj) ‘:super) (SETQ :obj (CADR :obj)}) 
(HCONS :method :obj :args)))) 


|; adaptation de EURL: un objet est invariant 
(DE :eval (obj) 
(OR (objp obj) 
(ERROR ‘:eval “l'argument n'est pas un objet“ obj))}) 


i adaptation de PRIN: un objet s'iaprine {package: (Era valeur )..} 
(DE :prin (obj) 
(PRIN “{" (:package obj}) 
(FOR (nuaval 0 1 (1- (ULENGTH (:objuals obj))}) 
(PRIN * (* 
(UREF (:objvals (SYHEUAL (:package obj)})} nunval) 


(UREF (:objuals obj } nuaval) 
*)")) 
(PRIN "}")) 


3CREATION DE NOUVEAUX OBJETS: 
à l'objet racine prédéfini, {obj:} (aucun champ), est lié à 0BJ 
; {NEH objet} retourne une copie de objet; 
; {NEH objet ‘var} retourne et lie à var une copie de objet; 
; {NEN objet ‘var '{(non val).)} lie à var une extension de objet 
; avec les nouveaux chanps (non val). dont les méthodes d'accès 
; sont crées automat iquement (dans le package <obj .package>:<uar>): 
; {non var} retourne la valeur du champ nom de l'objet lié à var 
; {non var val} donne la valeur val au champ non de l' objet lié à var 
(DE :new args 
(LET ((model (:eval (CAR args))})} ; argument 1 obligatoire 

(newnode | (CADR args)} ; argument 2 optionnel 

(newchanps  (CRDDR args))} ; argument 3 optionnel 

(COND ((NULL (CDR args)) ; {NEU model} 
(COPY model )} 
((NULL (CDDR args))} ; {NEU model ‘neumodei} 
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(SET neunodel (COPY model ))} 
TT : {NEU nodel ‘neunodet ‘(neuwchanps)} 
; création d'un nouveau modèle par extension de l'original: 
(LETS ({newpackg (SVHBOL (:package nodel} nesmodel ))} 
{nuaval  (ULENGTH (:objuals model)})}} 
(vals (HAKEUECTOR (+ nuaval (LENGTH newchanps)) (}}} 
(nons (COPY vals))) 
; copie des nons et des valeurs des chaaps du nodèle: 
(BLTUECTOR nons 0 (:objuals (SVHEUAL (:package model)})}} D nuaval) 
(BLTUECTOR vals 0 (:objuals node! } 0 nuaval) 
; pour chacun des nouveaux chaaps: 
(HAPC (LAHBDA (chanp}) 
(LET ((method) (valeur)} 
; analyse syntaxique du chaap: 
(COND ((ATOHP chasp) ; chanp = <method> 
(SETQ method chanp 
valeur nil)}) ; valeur par défaut = nil 
(CAND (CONSP chaap} ; champ = (<method> <valeur>) 
(ATONP (CAR champ)}}) ; (<method>) = <method?> 
(SETQ method (CAR chanp) 
valeur (EUAL (CADR chanp)))) 
(T ; mauvaise syntaxe: nettoyage du package 
(NAPC ‘RENOB (OBLIST newpackg)}} 
(ERROR ‘nes “<chanp>::=<a>|(<m><u>)" chanp}}} 
; initialisation du non et de la valeur du nouveau chanp: 
(USET vals nuaval valeur) 
(USET nons nuaval method) 
; création de la méthode d'accès au nouveau champ: 
(EUAL ‘(DE ,(SVHBOL newpackg method) (obj . arg} 
(:objvual ,nuaval)}} | 
(INCR nuaval)})) 
neschanps) 
: variables contenant le nouveau modèle: 
(SET newpackg (TCONS nespackg nons)) 
(SET neuwnodel (TCONS newpackg vals))} j))) 


; fonction pour méthodes d'accès en lecture/écriture à un champ 
; (obj et arg sont globales, voir 10° ligne ci-dessus) 
(DE :objval (nuaval) 
(IF arg (USET (:objuals obj) nunval (CAR arg)) 
‘ (UREF (:objvals obj) numval)}} 


:LISTE ET CREATION DES HETHODES: 
: {METHOD obj} retourne la liste des noms des méthodes locales à ob)j 
: {NETHOD obj ‘non} affiche (pretty) la définition de la méthode nom 
; {METHOD obj ‘nom ‘(luar body}} définit une nouvelle méthode de ob} 
; (le premier argument de la méthode doit être du type de obj) 
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(DE :method args 
(LET ((pkg C:package (:eval (CAR args))}) ; argument 1 obligatoire 
(non (CADR args)} ; argunent 2 optionnel 
(def (CADDR args))}} ; argument 3 optionnel 
(COND ((NULL (CDR args)) ; {NETHOD obj} 
(RENQ ()} (HAPCAR (LAMBDR (aton) 
(UHEN (TVYPEFN aton) aton)}) 
(OBLIST pkg)}}) 
((NULL (CDDR args)) ; {METHOD obj ‘noa} 
(EURL “(PRETTY ,(GETFN pkg non)))) 
(T ; {METHOD obj ‘non ‘def} 
(EUAL ‘(DE ,(SYHBOL pkg non) ,edef))})))) 


; la méthode SET permet d'écrire plusieurs chanps siaultanéaent 
3 ext {SET point ‘(x 12) (y 34))} --> {#:obj:point (x 12) (y 34)} 
(DE :set (obj champs) 
(HAPC (LANBDR (chanp) 
(COND (CATONP chaap) ;: champ = <method> 
(SEND chap obj nil}) 
((AND (CONSP chaap) : chaap = (<method> <ualeur>) 
CATONP (CAR chanp})}) : (<method>}) = <method> 
(SEND (CAR champ) obj (EUAL (CADR chanp)))) 
(T (ERROR ‘:set “<champ>::=<m>{(<m><u>)" chanp))})) 
chaaps) 


obj} 


; la méthode GET retourne une liste des valeurs des chanps désignés 
3 ext {GET point ‘(y x}} --> (34 12) 
(DE :get (obj chanps) | 
(HAPCAR (LANBDA (chanp) 
(SEND chanp obj)) 
chanps)) 
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VERIFICATEUR DE REGLES DE DESSIN par F.GUEZ et O.GIORDANO 


PROLOG 


CA: \1 
/*x ZONE root */ 
newzone (root)? 


.menuo s— 
clear _scr, 

attribute (30), 

(lexit_box,clear _scr,fail) : def box (19,55,0,5)), 
pos(3s,2), 

attribute (126), 

writes ("CLASSEMENT DES ERREURS FAR TYFE"), 
exit _box, 

pos(15,7), 

writes ("Erreurs de :"), 

pos(14,8), 

Writes("-—-—--- Ms 

pos(25,10), 

writes("(L)argeur",31), 

menui. 


INTRODUCTION: 


Le projet a pour but la conception en langage 
PROLÔG d'un programme de Vérification de Règles de 
Dessin (VRD). 


Ce vérificateur doit s'appliquer à des dessins de 
circuits intégrés réalisés en technologie CMOS. Un 
tel dessin sera soumis au programme sous forme 
d'une liste de rectangles, chaque rectangle étant 
décrit par les paramètres suivants: 


pass? 1-— 


writes(" Troisieme passe ...",23), 

put (15), - X : abscisse, 

erltx,Y,DX,DY,N,X1,Y1,DX1,DYI,N1,5), — Y : ordonnée, | 

riX,Y,DX, DY,N: D), _— PX: étendue horizontale, 

riX2,Y2,DX2,DY2,N,0), - DY: étendue verticale, 
- N : niveau. 


recouvre{(X1,X2,DX1,DX2,D3,D4), 
recouvre(Y1,Y2,DY1,DY2,D5,D6), 

not regle(N,Ni,D3), 

not regle(N,N1,D4), 

not regle(N,Ni,DS), 

not regle(N,N1i,D6), 

retract (erl(X,V,DX,DV,N,X1,Y1,DX1,DYI,N1,:)), 
impri2(X,Y,DX,DY,N.X1,Y1,DX1,DYI,N1,7). 


Nous étudierons dans ce rapport les performances 
du programme réalisé, ainsi que gon 
fonctionnement. 


passé :- 
writes(" Erreurs supprimees :"), 
put (13), | 
writes (" ELLE D 
put(13), | 
writes(" Deuxieme passe .,..",25 
put (13), : 

erl(X,Y,DX, DY,N,X1,Y1,DX1,DY1,N,4), 
r(x1,Y1,DX1,DY1,N,G), 

r{iX2,V2,DX2,DY2,N,Q2), 

G Xe 02, 

inter (X,X2,DX,DX2,D5), 

inter (Y,Y2, DY, DY2, D4), 

(not regle(N,N,1,D3) : not regle(N.N.1,D4)), 
inter (X1,X2,DX1,DX2,D1), 

inter (Y1,Y2,DY1,DY2,D2), 

{not regie (N,N,1,D1) 3 not regle(N,N,1,D2)), 
retract (erl(iX,Y,DX,DY,N,X1,Y1,DX1,DY1,N.4)), 
impri2tX,Y,DX,DY,N,X1,Y1,DX1,DY1,N,4). 


LL 


I) Performances du programme: 1.1.3) Erreur de recouvrement. 


1.1) Erreurs détectées: Cette érreur peut avoir deux origines: 


Le programme détecte 4 types d'erreurs de - soit un recouvrement interdit entre deux 


dessin: rectangles (par exemple contact/via). 
- erreurs de largeur, - soit un débordement insuffisant d'un 
- erreurs de distance, rectangle eur un autre dans le cas d'un 


erreurs de recouvrement, 


- x recouvrement autorisé. 
erreurs d'intersection. 


1.4) Erreur d' ion. 
1.1.1) Erreur de largeur. OUR Interests 
Cette erreur se produit lorsque deux rectangles 
de même niveau sont superposés et que leur 
gurface d'intersection est insuffisante. 


Une erreur de œ type est détectée si DX ou DY 
a une valeur insuffisante ("ou" inclusif). 


1.1.2) Erreur de distance. 


Cette erreur se produit lorsque deux rectangles 
se trouvent à une distance insuffisante l'un de 
l'autre. 
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pass3 
riX2,Y2,DX2,DY2,N.0), 
r(xX1,Y1.DXI,DYI,N1,01), 


Q \= Gi, ; 

EN = Ni 3 (N = cont,Ni \= alu2) 3 (Ni = 
3 Ni = alu2)) 3 (C(N = aluil ; N = alu2) 

inter2(X1,X2,DX1,DX2), 

inter2(Yi.v2,DY1.,DY2), 

((Q > Q1,Q2 is O1) : (Q + Q1,Q2 is G)), 


retract (r (X2,Y2,DX2,DY2,N,0)), 

retract(r(X1,Y1,DX1,DY1,N1,01)), 
asserta(r (X2,Y2,DX2,DY2.N,02)), 
asserta(tr (X1.Y1,DX1,DYI,N1,0@2)), 
passs. 


pass4 :- 


writes(" Quatrieme passe ..,.",22), 
put (13), 

erl(Xx,Y,DX,DY,N,X1,Y1,DX1, BYE N1,2), 
N \= N1, 


riX1,Y1,DX1,DVI,N1,01), 
rt, V,DX, DYIN, QG), 


impri2(X,Y,DX.DY,N,X1,VI,DX1,DYI, NI, 2) 


run 


attribute (30), 


(init 3; en _tetel ; fichier ; true), 

put (15), 

writes(" Fressez une touche 
getc(C), 

menuo, 


fichier :- vrai(£r (0,0, RE 
.r(0,3,10,4,difn), r(4,2,2,6, poly), 5,8, 
alui),.r(4, 9,2,2,cont), r(o, 10, a 
Ze: alu1)1,0). 


liste (KR) 
erl{x, VA DX,DY, N, X1,Y1,DX1,DYI,N1,R), 
line _attr (30), 

tab (4), 

write{(N), 

tab (4), 

writefi(X), 

writefi(Y), 

tab (8), 

write{(Ni), 

tab(4), 

writefi(XxX1), 

writefi (vi), 

tab (8), 

err (KR, 

put (15), 

fail. 


1.2) Cas particuliers: 


Le programme ne détecte pas d'erreur dans les cas 
particuliers suivants: 


1.2.1). Distance. 


Aucune erreur de distance n'est détectée entre 
deux rectangles de niveaux différents si ces 
derniers sont reliés électriquement. 


1.2.2) Recouvrement. 


Aucune erreur de recouvrement n'est détectée 
entre un rectangle R1 et un rectangle R2 si: 


- R1 recouvre R2. 

- il existe un rectangle K3 tel que: 
.R3 est de même niveau qu R1. 
.R3 recouvre R2 sans erreur. 


I.2.3) Intersection. 
Aucune erreur de recouvrement n'est détectée 


entre deux rectangles de même niveau Ri et R2 
s'il existe un rectangle R3 tel qu: 


.Ni 


retract (erl(X.Y,DX,DY,N,X1,Y1,DX1,DYI,N1, 


cont,N Nr alu2) 


via)), 


.s{NÏ = alui 


2)), 


pour continuer 


A A de 
4,4,polv)ur (70,2, 10,alu1t) ur CSST ASE 
(5,8, 4,44 alui),r (0,2,5,2,alul),r (9, 9. 


.R3 est de même niveau que R1 et R2. 

‘.I1 n'existe pas d'erreur d'intersection 
entre Ri et R3. 

.I11 n'existe pas d'erreur d'intersection 
entre R2 et R3. 


1.5) Temps de calcul. 


A titre indicatif, le traitement de l'essai 
“standard” de 14 rectangles présent dans le 
programme réclame environ 8 pour détecter 7 
erreurs. 


I.4) Remarque sur les erreurs miltiples. 


Si pour un cas donné, le programme détecte une 
erreur de même nâture en X et en Y, il ne signale 
qu'une erreur à l'utilisateur. 


II) Fonctionnement du programme: 


II.1) Représentation des objets mnipulés par le 
programe ; 


II.1.1) Données de base. 


Le circuit à tester est représenté par une 
clause définissant une liste, soit une 
- gtructure de la forme: 


fichier:-vrai([r(xX1,Y1,DX1,DY1,N1),...,r(XP, 
YP,DXP,DYP,NP)]), . 


ou r(xXi,Yi,DXi,DYi,Ni) représente le i-ème 
rectangle de la liste. 


Le traitement des cas particuliers (Cf. I.2) 
nécessite la traduction de cette liste de 
rectangles en une suite de clauses de la forme: 


r(xi,Y1,DX1,DY1,N1,Q1) 


r(XP,YP,DXP,DYP,NP,QP) 
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en _tetel :- 
cursor (12,12), 
clear .scr., 
def _box(1,78,0,6), 
attribute(126), 
tab(16), 


writes ("Verificateur de regles de dessin version 1.0."), 


put (13), 

tab (26), 

writes ("Par F. Guez % O0. Giordano'), 
put (13), 

tab(17), 

writes ("Copyright (C) auteurs % D.E.A. 
put (13), 

en_tete2, 

fail. 


init :- 
retract (r (A,H,C,D,E.F)), 
fail. 

init :- 


retract (erl(X,Y,DX;DY,N,X1,Y1,DX1,DYI,N1,R)), 


fail. 


en_tetez :- 
line_attr (87), 
writes("Rectanglel"), 
tab(6), 
writes("xX1:"), 
tab (3), 
writes("yis"), 
tab(4), 
writes ("Rectanglez"), 
tab(5), 
writes("x2:"), 
tab (3), 
writes("y2s"), 
tab(8), 
writes ("Erreur"), 
exit box, 
def _box(1,78,7,20), 
writes (" Fremiere passe...",235), 
put (13). 


regla(r(X,Y,DX,DY,N),rtX1,Y1,DX1,DY1,N1),5) 
recouvre(Xi,X,DX1,DX,D1,D2), | 
(regle {(N,N1,3,D1) ; regle{N,Ni,5,D2)), 
impritX,Y,DX,DV,N,X1,Y1,DX1,DY1,N1,3). 

reglatr(X,Y,DX, DY,N):r(X1,Y1,DX1,DVI,N1),2) 
recouvre(X,X1,DX,DX1,D1,D2), 

(regle (Ni,N,3,D1) 3; regle(Ni.N.3,D2)), 
impri(X1,Y1,DX1,DY1L,N1,X, V,DX, DY,N, 5). 
reglaitr(X,V,DX,DY,N),rCX1,Y1,DX1,DY1,N1).7) 

recouvre(Y,Y1,DY,DYi,D1,D2), 

(regle (Ni,N,S,Di) ; regletNi,N,3,D2)), 
impri(Xi,Y1,DX1,DYI,N1,X,Y.DX, DY,N, 2). 
reglatr(X,Y,DX,DY,N),r(X1,YIi,DX1, DYI,N1),3) 

recouvre (Yi,Y,DY1,DY,D1,D2), 

(regle(N,N1,5,D1) ; regle(N,N1i,7,D2)), 

impri(X, Y,DX,DY,N,X1,Y1,DX1,DYI,N1,2). 
reglatr(X,Y,DX, DYAND ,r (X1,Y1,DX1,DV1,N),4) 

inter (X,X1,DX,DX1,D5), 

inter (Y,Y1,DY,DY1,D6), 

regle{(N,N,i,D5), 

regle(N,N,1,D6), 

impriCX, YA DX,DY,N,X1,Y1,DX1,DYI,N,4). 


reglal(r(X,Y,DX,DY,N),rtX,Y,DX,DY,ND) 5 — 
not regle(N,N,1,DX), 
not regle (N,N,1,DY). 
reglal(r(X,Y,DX, DY,ND sr CX,Y,DX, DYAND) :— 
regle(N,N,1,DY), 
impritX,Y,DX,DY,N,X, Y,DX,DY,N, 1). 
reglai(r(X,Y,DX.DY.N),riX,Y,DX, DY,N)) :— 
reglie{(N,N,1i,DX), 
impri(X,Y,DX,DY,N,X,Y,DX,DY.N, 1). 
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M.E.M.1. 1985",254), 


où les Qi sont des paramètres ajoutés lors 
traitement (cf. II.2.3). 


I1.1.2) Erreurs. 


Les erreurs sont représentées sous forme de 
clauses insérées en fin de programme. 


Ceæ clauses sont de la forme: 
erl(x1,Y1,DX1,DY1,N1,X2,Y2 ,DX2,DY2 ,N2 ,ERR). 


- où: 


- (xX1,71,DX1,DY1,N1) sont les paramètres du 
premier rectangle en cause. 


… (X2,Y2,DX2,DY2,N2) sont les paramètres du 
deuxième rectangle en cause. 


- Err est le code de l'erreur détectée, avec: 


.ERR = 1 Erreur de largeur, 
.IRR = 2 => Erreur de distance, 
à = 3 => Erreur de recouvrement, 
.ER = 4 > Erreur d'intersection. 


II.1.5) Règles. 


Les règles sont exprimées sous forme de clauses 
du type: 


règle(N1,N2,R,L) :- IkMin. 


avec: 


- Ni = niveau du premier rectangle, 
— N2 = niveau du deuxième rectangle, 
— R = code de la règle, où: 

.R-1 => règle de largeur, 

.R=2 => règle de distance, 

.R=3 => règle de recouvrement, 

.R=4 => règle d'intersection. 
- L.= paramètre à comparer à Min, 
- Min= valeur minimale de la règle. 


II.2) Recherche des erreurs: 


II.2.1) Généralités. 


Le programme de VHD procède en quatre passes 
consécutives: 


application stricte des règles (sans tenir 
compte des cas particuliers), 

- examen des erreurs d'intersection, 

- examen des erreurs de recouvrement, 

examen des erreurs de distance. 


Pendant les trois dernières passes, le program- 
me élimine les clauses d'erreurs relevant des 
cas particuliers décrits au paragraphe I.2). 


regla2(r(X,Y,DX,DY,N),r(X1,V1,DX1,DY1,N1)) 


inter2(y, Ÿ1, DY, DV1), 

disjoint (x, X1, DX, DX1, D1), 
regle(N,N1,2, Di), 

impritX,Y, DK, DY, N, X1,Y1,DX1,DYI,N1, 
fail. 

A te 
disjoint(Y,Y1,DY,DY1,D27), 
disjointi(X,X1,DX,DX1,D1). 
regle(N,N1,2,D1), 
regle(N,N1,2,D2), 
impritX,Y,DX,DY,N,X1,Y1,DX1,DY1,N1.2), 
tail, 

regla2trix,Y, DX, DY,N),r(X1,Y1,DX1,DYI,N1)) 
inter2(x, X1, DX, DX1), 
disfointY,Vi,DY,DVI,D), 
regle (N,N1,2,D), 
impri(X,Y,DX,DY,N,X1,Y1,DX1,DYI,N1,2), 
fail. 

regla2(riX,Y,DX,DY,N),r(X1,V1,DX1,DYI1,N1)) 
inter2(X, X1, DX, Dx1), 
inter2(V,Yi,DY,DY1). 


regle(poly,poly,1,L) :— 
regletdifn,difn,i,l) :- 
regletdifp,difp,i,Ll) :- 
regle(cont,cont,1,L) :-— 
ragle(alui,alui,1,L) :- 
regle(aluz,alur,1,L) :-— “ 
regle(via,via,li,l) 5-— L «4 9, 
regle(poly,poly,2,Ll) :- & 
regle(poly,difn,2,L) :- 
regle(poly,ditp,2,L) :-— 
regle(poly,cont,2,Ll) :-— 
regle(difn,difn,2,L) :- 
regleldifn,difp,2?,Ll) : 
regle(difn,cais,?,L) :-— 
regle(difn,poly,2?,L) : 

regleltdifp,poly,2,L) : 

regle(cont,poly,2,l) :-— 


RC RPRPRCES 


(D D Re É ToE re 


CN OUR SE mt RE ce ca 


regle(difp.difn, 2,1) 
regle(cais,difn,2,L) 
reglelcais,cais,?,L) :- 
regle(cont,cont,®,Ll) :-— 
regle(aluli,alui,2,l) :- 
regle(alu?,alu?,?,L) Ch 5 
regle(via,via, mL) s- L < 2, 
regle(cont,via,2,l) 5 L « 1, 
regle(poly,difn, SL) 5 | 
regle(poly,difp de 


Fri 
D: 


He GNHReDTHIHNrrtr) 


FF 


ie rt 


regle(difn, poly,3,L) SANTÉ 
regleltdifn,cont,3, 
regle(difp,cont,%,.L) 3: ï. 
regletcais,difp,ZL) se À 
regle(alui,cont,ÆS,L) se L x 
regle(alui, via,%,L) Bee, be 
regle(alu?,via,: h 
regle(difp,poly, 
regle(difp,difn 
regle(difn,difp 
regle(tdifn,cais, 
reglelcais,difn,=, 

regle (cont, via,z,L). 
regle(via,cont,3z,Ll). 


li. 
Î 

Be 
1. 


disjoint (A,B,C,D,E) :- 
A > H + D, 
E is 4 —- EH - D. 
disjoint (A,B,C,D,E) 
A+C<BE, 
E is BR - A -cC. 


recouvre (A,H,C,D,E,F) :— 
A >= HE, 
À =€ B + D, 
E is A - H, 
F is B+D-A-c. 


Le programme indique à l'utilisateur le numéro 
de la passe en cours d'exécution, ainsi que les 
erreurs traitées à chaque étape (aussi bien en 
insertion qu'en retrait). 


Ce logiciel étant expérimental, ces disposi- 
tions permettent à l'utilisateur de détecter 
des "bugs" éventuelles et affrent ainsi un 
meilleur suivi des opérations en cours 


II.2.2) Détection des erreurs de: 
11.2.2.1) Largeur. 


Le VRD teste si les DX et DY de chaque rec- 
tangle de niveau N sont inférieur au Min de 


la règle: 
règle(N,N,1,L). 


avec I=DX ou L-DY. Si "règle" est vérifiée, 
une erreur de type 1 est générée. 


11.2.2.2) Distance. 


La clause “"disjoint" calcule la distance 
entre deux rectangles de niveau Ni et N2 
selon les x ou les y. Une erreur de type 2 
est détectée si la rLgle: 


règle(Ni ,N2,2,L). 
est vérifiée pour la distance en x ET en y. 
II.2.2.3) Recouvrement. 


La clause "recouvre" calcule le débordement à 
droite et à gauche d'un rectangle de niveau 
N1 sur un rectangle de niveau N2. Si la 
règle: 


règle(Nt ,N2,3,L). 


est vérifiée pour le débordement à droite OU 
à gauche, une erreur de type 3 est générée. 
En outre, cette clause détecte les intersec- 
tions interdites entre rectangles de niveaux 
différents. 


I1.2.2.4) Intersection. 
La clause "inter" calcule les dimensions de 


l'intersection de deux rectangles de niveau 
N. Si la règle: 


règle(N,N,4,L). 


est vérifiée pour l'une des dimensions, une 
erreur de type 4 est générée. 


II.2.3) Traitement des cas particuliers. 
II.2.3.1) Deuxième passe. 


Au cours de cette passe, le VRD parcours les 
erreurs d'intersection détectées durant la 
première passe. Il recherche pour chaque 
erreur un rectangle FRA aux conditions 
énoncées au paragraphe 1.2.3). 


I1.2.3.1) Troisième passe. 

Cette passe se déroule en deux phases: 

- parcours des clauses "r(X,Y, DX,DY,N ,Q)", 
comparaison des rectangles deux à deux, et 


changement du paramètre Q si intersection: 
dans ce cas Q=min(Qt,@2). 
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inter (A,B,C,D,E) :- 


A =< B, 

A +C5z= EH, 

CA+C<RB+D,E is A +C - H) 3 A + C :- 
inter (A,B,C,D,E) :-— 

À =< B + D, 

A > B, 

(A +C > B + DE is &B + D - À) 3 (à + CO 


inter2(A,B,C,D) :- 
A =< B, 

A+C = RH. 
inter2(A.B,C.D) :- 
A =< B + D, 

A > B. 


test(T,TI1) :- 
regla2{T,Ti), 
regia{T,Ti,P), 
fail. 

test (T,T1). 


impritX,Y,DX,DY,N,X1.Y1,DX1,DYI,NL,ERR) 2 
not erl(X,Y,DX,DY.N,X1,Y1,DX1,DYI,N1,ERR), 
line_attr (30), 
tab(4), 
write(N), 
tab(4), 
writefi(X), 
writefi (Y), 
tab(8), 
write (N1), 
tab(4), 
writefi(X1), 
writefi(Y1), 
tab(B), 
err (ERR), 


+ DE is D)). 


& + D,E is C)). 


Cette phase peut servir d'extracteur d'équi- 
potentielles, mais ne prend pas en compte les 
transistors (le drain, la source et la grille 
sont considérés comme appartenant à la même 
équipotentielle. 


- parcours des erreurs de distance; si les 
rectangles en cause sont de niveaux diffé- 
rents et ont le même paramètre Q, l'erreur 
est supprimée. 


II.2.3.3) Quatrième passe. 
Au cours de cætte passe, le programe par— 
cours les erreurs de recouvrement. Il recher- 
che pour chaque erreur un troisième rectangle 
vérifiant les conditions du I.2.2). 


II.2.3.4) Remarque. 


Au cours de la première passe, chaque élément 
de la liste des rectangles est mis sous forme 
de clause, le paramètre Q étant initialisé à 
l'ordre d'insertion du rectangle (Q=0 pour le 
premier, Q=1 pour le deuxième, etc...). 


asserta (erl(X,Y,DX,.DY,N,X1,Y1,DX1,DYi,NI,ERR)), 


put (13),. 


cimpri2(X, Y,DX,DV,N,X1,V1,DX1,DVIANI,ERR) 


line_attr (31), 
tab(4), 
write(N), 
tab(4), 
writefi (X), 
writefi(v), 
tab(#), 
write{N1), 
tab (4), 
writefi(xX1), 
writefi(vVi), 
tab(8), 

err (ERR). 


verif(T,CTIIRI) :- 
test (T,T1), 
verif(T,R). 

verif$(T, (1). 


err(2) s- writeldistance). 
err ($) :- write(recouvrement),. 
err(1) :- write(largeur). 
err (4) :- writetintersection). 


vrai(l1,@) :- 
put (13), 
(passé ; passi : 
put (153), 
fail. 

vrai(lTiS1,0) :- 
asser (T,@), 
reglai(T,T), 
verif(T,sS), 
0 is Q + 1, 
vrai (S,0). 


pass? : pass4), 


asser (r(X,Y,DX,DY,N),0) 


JEDI no 30 décembre 1986 


III) Mode d'emploi: 

III.1) Données: 

La liste des rectangles doit être présente dans 
le programme sous la forme décrite au paragraphe 
II.1). 

III.2) Départ: 


(sous X1og) 


taper: run? 


III.3) Résultats: 
Un premier æffichage va permettre le suivi des 
opérations de vérification. 


En fin d'opération, un menu va permettre de lire 
toutes les erreurs détectées. 


Cinq choix sont offerts: 


_ consulte les erreurs de largeur, 

_ consulte les erreurs de distance, 

_ consulte les erreurs de recouvrement, 
_ consulte les erreurs d'intersection, 
- retour à Xlog. 


Chaque erreur est représentée par l'affichage des 
niveaux et des coordonnées des deux rectangles en 
cause. 


:— asserta(r(X,vV,DX,DY,N,0)), 


menul :-— 
pos(25,12), 
writes ("(R)ecouvrement,",29), 
pos(25,14), 
writes("(Dlistance.",28), 
pos(25,16), 
writes("(l)ntersection.",27), 
menuz2. 


menuz :— 
pos(45,19), 
writes("(Quitter ."), 
get (Choix), 
clear _scr, 
taffiche(Choix) 3 menuo), 


affiche(X) :- 
{x _ [UE ; X 4 MEL 
def _box (10,69,0,5), 
attribute(127), 
pos(20,2), 
writes ("ERREURS DE LARGEUR"), 
exit _box, 
efface, 
imprime(1l). 
affiche(X) :- 
(X = "d" 3 X = D) 
def _box(10,468,0,5), 
attribute(124), 
pos (20,2), 
writes("ERREURS DE DISTANCE"), 
exit _box, 
efface, 
imprime(2). 
affiche(X) :- 
CX = Op" 3 X = RU), 
def _box (10,68,0,5), 
attribute(125), 
pos(16,2), | 
writes ("ERREURS DE RECOUVREMENT"), 
exit _box, 
efface, 
imprime(s),. 

affiche(X) :- 

(x ES uiu ; X Es D HE D 
def_box(10,68,0,5), 
attribute(127), 
pos(16,2), 
writes ("ERREURS D'INTERSECTION"), 
exit _box, 
efface, 
imprime(4). 

affiche{tx) :- 


(X = “a" 5 X = a"), 
cursor (5,5), 
stop. 

efface :- 


exit box ; true), 
def _box (10,68,46,20), 
attribute(126), 
clear _scr, 

cadreO, 

exit _box. 


imprime(ERR) :-— 
erl (X,V,DX,DY,N,X1,Y1,DX1,DY1,N1,ERR), 
def _box(10,68,46,20), 
pos(15,4), 
writefi(X), 
pos(15,6), 
writefi(Y), 
pos(15,8), 
writefi(DX), 
pos(15,10), 
writefi(DY), 
pos(44,4), 
writefi(X1), 
pos(44,é6), 

writefi (vi), 


III.4) Remarque: 


Après un "Quitte" ou un arrèt du programme, la 
lecture des erreurs détectées à ct instant se 
fait per: 


menuO? (sous X1og) 


IV) Performances: 


L'amélioration des temps de traitement n'a pas été 
pour nous l'objectif principal de notre travail. 
En effet, la complexité du problème et le grand 
nombre de cas particuliers possibles entrainent 
une miltitude de tests qui vont ralentir l'exécu- 
tion. 


11 nous est apparu plus important de réaliser un 
logiciel couvrant le plus de cas possibles et 
laissant à l'utilisateur une trace de la "réfle- 
xion" du programme. En effet, la possibilité de 
vérifier et trier les résultats évite la prise en 
compte d'erreurs fictives. 


IV.1) Structure des données: 


Le choix de l'introduction des rectangles sous 
forme de liste a été dicté par un souci de coImpa-- 
cité, mais aussi pour améliorer le temps de c1l- 
cul dans la première passe où les rectangles sont 
examinés deux par deux. Une procédure réccurente 
d'extraction et de traitement des têtes de liste 
est la solution la plus rapide. 


IV.2) Exécution: 


Il est préférable de tester d'abord si deux rec- 
tangles sont disjoints et de vérifier si les 
règles de distance sont respectées. On évite 
ainsi des traitements inutiles des règles de 
superposition. 


Deux clauses permettent de déterminer s'il y à 
intersection, car l'une d'elle fournit les dimen- 
sions de la surface de superposition, tandis que 
l'autre ne donne aucune information d'encombre- 
ment. Un choix judicieux entre ces deux clauses 
permet d'éviter les passages de paramètres inu- 
tiles et donc de gagner du temps. 


L'initialisation des paramètres Q pourrait faire 
l'objet d'un traitement plus rapide au cours de 
la troisième passe. On éviterait une mltiplica- 
tion des tests d'intersection par un "pré-mar- 
quage" des lignes équipotentielles dans la pre- 
mière passe lors du test de distance. 


IV.3) Nombre de tests. 


Une optimisation possible du VRD consisterait à 
optimiser le nombre de comparaisons de rectan- 

es effectuées au cours des différents tests et, 
à cet effet, plusieurs solutions ont été 
proposées. 


En particulier, une de ces solutions proposait de 
découper la surface du circuit en sous-blocs 
testés individuellement. 11 parait préférable de 
ne soumttre au VRD que des fichiers de petite 
taille, respectant par exemple, le découpage en 
blocs fonctionnels du circuit global. 
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PASCAL 


LIEN DE BIBLIOTHEQUE avec Turbo-PASCAL 


par J.M.PREMESNIL 


Si vous utilisez TURBO-PASCAL, vous savez certai- 
nement que les programmes utilisent, pour tourner, 
une bibliothèque qui a une longueur de 8 à 10 Ko 
et qui se place automatiquement en début de pro- 
gramme lorsque vous les compilez en extension 
COM. 


Mais quand vous devez sauvegarder des mini-appli- 
cations nombreuses sur une disquette unique, les 
bibliothèques prennent à chaque application, une 
place en mémoire non négligeable. 


Program Run; 


Var Fichier :Strin9l141; 
Logiciel:File; 


Begin | 
If ParamCount = @ Then 
Begin 


urite C’Entrez le nom du fichier (Extension .CHN Par defaut) 


ReadLn (Fichier 3 
End 


Elise Fichier := ParamStr(1); 


1f Pos ('.',Fichier) = @ Then Fichier := Fichier + 


Assion (Logiciel,Fichier 3: 
{S1-}) 

Chain (Logiciel): 

{#1+} 


Pour éviter ces redondances, il suffit de compiler 
le petit programme suivant avec la bibliothèque 
sous le nom bien connu de RUN.COM et de l'intégrer 
à la disquette d'applications. 


Les programmes PASCAL seront conpilés avec l'ex- 
tension .CHN en choisissant l'option H afin de ne 
pas intégrer la bibliothèque. Ainsi, ils pourront 
être chaînés au programme RUN et tourner normale- 
ment. 


7 )à 


? ,. CHW’ : 


If IOResult <> 8 Then Uriteln C’ERREUR: FICHIER NON TROUVE 


End. 


CONCLUSION: 


Le programme proposé détecte toutes les erreurs de 
dessin. En revanche, il est possible que certaines 
configurations géométriques autorisées aboutissent 
à la génération d'une erreur. 


- La structure du programme révèle d'ailleurs la 


démarche suivie lors de sa conception: dans une 
première version, détecter toutes les erreurs, 
puis, dans les étapes suivantes, traiter ces er- 
reurs de mnière plus fine à chaque étape. 


L'étape suivante, dans l'évolution du VD, serait 
donc de reprendre le programme avec une vue d'en- 
semble, et d'en réviser la structure. 


pos (44,8), 
writefi(DX1), 
pos(44,10), 
writefi (DY1i): 
imprimeo(N,N1). 


imprimeO(N,N1) :— 
pos(19,2), 
write(N. 5), 
pos(49,2), 
write(N1,5), 
pos(30,15), 
getc(0), 
exit _ box, 
fail. 


cadreo :- 
pos (5,2), 
writes("RECTANGLE 
pos(10,4), 


AUS E 


writes("x ="), 
pas (10,46), 
writes("Y ="), 
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cadrel :-— 


pas(10,8), 
writes("Dx="), 
pos(10,10), 
writes("DY="), 
cadrei. 


pos(35,2), 
writes("RECTANGLE 2 :"), 
pos(40,4), 


writes("XxX ="), 
pos(40,6), 
writes("y ="), 


pos(40,8), 
writes("DX="), 
pos(40,10), 
writes("DY="), 
pos(17,12), 


writes("3>: PRESSEZ UNE TOUCHE «+ 


PRE era 


r(4,2,2,6,p0ly, 0). 
r (3,8,4,4,poly,0) . 
r(4,9,2,2,cont,0),. 
r(5,9,4,3.alul,0),. 
r(7,:0,2,10,alu1,0). 
r(9,97,2121alu1,0). 
r(38,4,4,alui,0). 
r(a,10,4,2.alui,0). 
ri0,712531alu1,0). 
r(9,3,4,4,alui,0). 
r(0,3,10,4,difn,0). 
r(4,4,2,2,cont,0). 
r(0,0,1,3,alui,0). 
r(0,2.5,2,alui,0), 


er1(7,0,2,10,alu1,9,9,2,2,alui,4). 
eri(4,2,2,6,poly,0,%,10,4,difn,:5). 
er1t0,7,2,5,.alui,%,8,4,4,alu1,2). 
er1(0,7,2,5,alui,3,9,4,3,alul,2). 
er1(0,3,4,4,alui,3,8,4,4,alut,2). 
er1(0,0,1,3,alu1,0,2,85,2,aluli,4). 
er1(0,0,1,%,alut,0,3,4,4,alu1,4). 
er1(0,0,1,%,alu1,0,0,1,3,alut,1). 


LE CALCUL ELEMENTAIRE 


APL 


Tout individu sachant lire, écrire et compter peut tirer 
profit d'un interprète APL mis à sa disposition sur un 
micro-ordinateur ou à partir d'un terminal, Il n'est pas 
nécessaire d'être informaticien, 


L'APL peut être utilisé à différents niveaux de complexité, 
pour faire des choses extrèmement simples ou des choses très 
élaborées. 


Au niveau le plus élémentaire, l'APL se comporte comme une 
calculette d'une puissance et d'une facilité d'emploi incom- 
parables, 
Facilité d'emploi: 11 suffit de taper 

è +2 
pour obtenir la réponse: 4 . Si on frappe: 

PI = 3.14 


on stocke la valeur 3.14 dans un registre appelé "PI". Si 


on frappe alors: 


2 x PI 


la réponse sera: 6.28 


Puissance: les 4 opérations, la racine carrée, l'exponen- 
tielle, le logarithme, les fonctions trigonométriques, 
etc... sont exécutées instantanément avec une précision 
supérieure à 15 décimales. Le nombre de registres est 
quasi illimité (création de variables), 11 esr recommandé 
au débutant d'user et d'abuser du mode "calculette", S'il 
a pris l'habitude de placer sous son coude gauche un 
tableau récapitulatif des symboles opératoires, il pourra 
effectuer facilement toutes les opérations élémentaires 
qui lui seront nécessaires, Il mémorisera ainsi rapidement 
et sans même s'en rendre compte les principaux symboles 
utilisés, et bientôt, 1] pourra ranger le tableau dans son 
tiroir pour ne l'en ressortir qu'en cas de besoin. 


EXEMPLE DE CALCUL 


A titre d'exemple, voyons comment calculer les racines d'une 
équation du second degré: 


a.x2 + b.x + c = 0 


pour les valeurs a21 b=1 c--2 


Nous allons commencer par mémoriser les coefficients en 
créant trois variables À B et C. Nous frappons: 


Notons au passage que l'APL fait la différence entre le 
moins (-) symbole de l'opération de soustraction et le mins 
(-) préfixe des nombres négatifs. Après quoi nous allons 
calculer le déterminant : 


(B #2) + (4 x A x C) 


La réponse de l'APL est: 9. Il est positif, nous aurons donc 
deux racines réelles. Nous allons ranger la racine carrée de 
ce déterminant dans une variable que nous appelerons D: 


D æ ((B * 2) 


+ (4x A x C)) # 0,5 u 


Vérifions la valeur de D en tapant tout Simplement: D. La 
réponse est 3. Nous n'en sommes pas étonnés, et nous 
continuons en calculant la valeur de la première racine: 


((-B) + D) + (2x 4) 


L'APL nous renvoie la valeur: 1 et la deuxième racine: 


((-B) - D) 5 (2 x A) 


L'APL nous renvoie la valeur: -2, 


: Si le déterminant avait été négatif, nous aurions rangé dans 
D la racine carrée de son opposé: 


D @æ ((4 x A x C) 4 (B # 2)) # 0.5 


et nous aurions calculé successivement la partie réelle: 


(-B) 5 (2 x A) 


par F.ESPINASSE 


et la partie imaginaire: 


D (2x4) 


des deux racines con juguées. 


ET APRES ... 


À ce point, une remarque vient naturellement à l'esprit: si 

nous voulons les racines de l'équation pour d'autres valeurs 

de A, Bet C, nous allons recommencer à taper la même série 

de commandes (laquelle, notons-le, comporte une variante 

gelon le signe du déterminant). N'est-1l pas possible d'en- 

registrer une fois pour toutes cette série de commandes et ; 
de la faire exécuter séquenciellement sans avoir à interve- 

nir autrement qu'en entrant les valeurs des données? 


La réponse est: oui, Une suite de commandes (ou instrucions) 
pré-enregistrées s'appelle une "fonction" APL. Mais là, nous 
franchirons un pas dans l'escalade de la complexité en 
passant du mde "calculette" à la programmation proprement 
dite. 


Pour l'instant, nous sommes encore loin d'avoir épuisé 
toutes les possibilités du mode "calculette" et nous verrons 
prochainement comment manipuler des variables multidimen- 
sionnelles, vecteurs, tableaux... 


I E. 


Un mot À une primitise 1. 
devenu inutile dans le dictionnai 


FORBIC mot 

st detruit dans le dico 
Cher ches Sont plus rapides 
combre plus les listes 


les anciennes definitions 


MEL lise 


Cefinition en FIG-FORTH 

A LA TRAPPE. .. 
CO FÜRBID suppression d'un mot ! 
FÜORTH CEFIHITIONS CECIMAL : 
: FORBIC SET " HFH CONTEXT & 


EBTH 
HHILE 


“mot restent ualid 


4= 


SURF PFA LFO 8 SUQP 


FORBIC et FÜRGET 


SOUS LE CAPOT 
DU 63-STANDARD: l éditeur 


BASES DE DONNEES 
ET SYSTEMES EXPERTS: suite 


JEDI no 30 décembre 1986 


15 


M A T Ï | S COMPRESSION DE L'INFORMATION 
D 


THÉORIE DE L'INFORMATION 
THEOREME DE  SHANNON 


Par convention, la quantité d'information nécessaire 
pour transmettre un symbole binaire, dont, à chaque 
instant, la pro- babilité d'apparition est de 1/2, est égale 
à un bit. 

La quantité d'information nécessaire pour transmettre 
un message de 1 symboles, Si, d'un alphabet prédéfini 
(Si S2 … Si … Sn), de probabilité d'apparition 
constante, notée pi, est : 


1 
Qo= 3 (-pi * Ii) ) IE): logarithme à base 
i=1l 


HYPOTHESES DE KHUFMAN 


1 Les symboles sont appelés caractères. 
2 Leur probabilité d'apparition ne dépend que du langage 
utilisé. 
3 Le codage se fait caractère par caractère. 
4 Le décodage aussi. 
Il convient donc de noter que : 
1 L'algorithme est entièrement prédifini avant la 
réception du premier caractère : il n'est pas nécessaire 
d'avoir reçu, partiellement ou non, le message à décoder ; 
la mémoire nécessaire est donc très faible. 
2 La deuxième hypothèse n'est que partiellement véri- 
fiée : le texte déjà décodé permet parfois de bien prévoir 
la suite. L'algorithme ignore ces redondances. 
3 Le langage de référence n'est pas spécifié : il peut s'agir 
- d'une langue naturelle : français, anglais, allemand, 


- d'une langue artificielle, de programmation ou non; 
- d'un message formaté : météo, séquences morse, 
séquences de mesures ; 

- d'une entité logique graphique ou sonore déjà 
décomposée en symboles ou nombres : tableau de 
valeurs, image ou son, synthétiques ou non, etc... 


ALGORITHME DE  HUFMAN 


Ii faut disposer de l'histogramme normalisé des 
probabilités, c'est-à-dire la fréquence d'apparition de 
chaque symbole, leur somme étant égale à 1. Puis: 

1 Les ranger par probabilités décroissantes. 

2 Construire un arbre binaire de décodage, dont, à 
chaque noeud, les fréquences d'apparition de 0 et de 1 
soient aussi voisines que possible. 

3 Chaque caractère est remplacé par la suite binaire 
de son arbre de décodage, de longueur variable. 

Le codage engendre donc un flot continu de bits et le 
décodage se fait bit à bit, d'après l'arbre de décodage. 

Plusieurs symboles ont la même séquence finale : le 
décodage est donc autosynchronisant ; on peut com- 
mencer à décoder au milieu du message. Au bout d'un 
certain temps le décodage sera exact et le restera. 

La mise en oeuvre nécessite la construction d'un 
arbre binaire, le codage se faisant en asociant un bit 
arbitraire à chaque branche. Il peut être : 

- naturel : 1 à droite (fréquences faibles) 

0 à gauche. 
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- équilibré : certains noeuds sont permutés pour 
équilibrer 0 et 1. 

- crypté : l'ordre des noeuds est fixé, puis chacun 
d'eux est affecté d'une variable binaire indiquant s'il 
faut l'inverser. 


EXEMPLE 


L'exemple choisi est celui de la langue française. Les 
statistiques résultent d'un comptage sur 60.400 caractères 
dont 9.880 blancs et 1.440 lettres accentuées, et d'un 
autre, sur 100.000 caractères, cité dans le livre de Mr 
Roubaty "ABC du décryptage", paru aux éditions 
Masson. 


ler comptage 


re 2 + an im 
SE 
SONNNNNE 


9 
f 
q 
v 
P 
m 
c 
d 
0 


M : Majuscule non précédée de . 
L : Fin de paragraphe. 


L'arbre de décodage se compose de noeuds et des 
symboles terminaux que sont les caractères. 

Appelons poids le nombre de fois qu'un noeud est 
atteint, et volume le nombre total de branches qui restent 
à parcourir après avoir atteint un noeud. Si un noeud n 
résulte de la fusion de deux noeuds nJ et n2 ,ona: 
p=pl+p2 ;: v=vl+v2+p; 

Un algorithme de construction de l'arbre de codage 
est le suivant : 

1 Ranger les symboles par probabilité croissante. 

2 Empiler les deux premiers symboles. 

3 Calculer poids et volume du prochain noeud, et les 

empiler. 

4 Le dernier noeud est l'origine de l'arbre. 

Après alignement du premier comptage sur le 

deuxième (coefficient 2,1110407), la partie supé- 

rieure de la pile de Hufman ressemble à ceci : 


La longueur moyenne d'un caractère est de : 

556463 / 127388 = 4,3682 bits / caractère 
soit un résultat légèrèment supérieur à celui de la 
formule de Shannon, en raison de l'apairage imparfait 


| des poids. Si on renonce à Ia propriété 


autosynchronisanie du code, il est possible de grouper les 
bits par 4, ce qui donne : 


4 bits : Peainsirulodem À B 

8bits: À  év'qMfghb.jxàL.- 

8büis: B  yéê<<>>2012345678 C 

12 bits: C  90:;k 407!/+%c D 

16 bits : D 

60 59 61 127388 556463 o 42 47 9971 17038 

58°37 60 73112 267829 s 8110 0 

56 55 59 54276 161246 a 7833 ( 

54 H 58 41002 116359 | 41 d 46 7624 16334 

53 52 57 31012 78358 i 7436 0 

e 51 56 29167 43743 n 7381 0 

50 49 55 25109 63227 i 7195 0 

48 47 54 21243 74259 c 40 45 6641 13009 
H 20857 0 r 6457 0 

s à 53 15951 15951 u 6144 0 

46 i 52 15060 31394 1 5867 0 
e 14591 0 p m A4 5812 6812 

n t 51 14576 14576 | 39 38 43 5440 18914 

45 r 50 13098 25107 o 5399 0 

u 1 49 12011 12011 | 37 6 42 4601 7047 

44 43 48 11252 35978 | 36 35 41 3968 8710 


La longueur moyenne d'un caractère est alors de 
5,0518 b/c, soit 16% de plus. 


REPRESENTATION L'ARBRE 


DE DECODAGE 


DE 


Celle-ci peut être pré, post ou infixée, c'est-à-dire paren- 
thésée : le début de l'arbre serait alors représenté ainsi : 

(CO C((IT)c)(H+)) (/1))(76))a 
En notation postfixée, la représentation complète de 
l'arbre est la suivante: 


ÎT,6%+1,,,,70,k4,..;,:,(),0123456789,,,,1,,,08,y- 
L,,à,,xj,,,..,,h,bgf,qM' , 
r,itni,as,,,,,e,,8,,,,,,,, 


55Vs556,::pm,cd,,0,,1u 


La virgule représente l'apairage de deux noeuds et Le 
symbole , cstentre deux blancs. 


APPLICATION 


1} Traitement de texte 
at programmation 

Tel quel, l'algorithme n'est applicable qu'au codage et 
décodage bit à bit de texte de statistique connue, mais les 
adaptations sont nombreuses. Il n'est pas interdit de 
conserver sa jugeotte : plutôt supprimer que de coder les 
blancs en fin de ligne ! Si les répétitions sont nom- 
breuses, il est vivement conseillé de créer un symbole 
"répétition", ou un symbole banalisé représentant un 
mot Où une expression. 

Pour coder un texte source, il n'est pas mauvais de 
faire, à la main ou par programme, un comptage de 
mots-clés : les plus fréquents pourront ainsi être codés 
sur un octet | 


2) ronction continue 


a) Echantillonnage régulier. 
Il faut définir une formule d'extrapolation, qui peut 
être simplement : Sn 4 1 = Sn, puis ne coder que 


l'écart entre la mesure et l'extrapolation. 

b) Echantillonnage non régulier. 

En temps différé, il est possible, une fois définis un 
écart maximum et une formule d'interpolation, de ne 
transmettre que les points anguleux. Ne sont conservés 
que Îes points anguleux, c'est-à-dire les couples (1,v) : 
longueur et valeur. Les points intermédiaires sont 
restitués par interpolation. En temps réel, il faut un 
tampon de sortie pour faire ceci. 

Ce n'est pas dévoiler un secret que de mentionner 
qu'aucune de ces techniques n'a été utilisée pour le 
Compact-Disk : le son a été codé, en absolu, linéai- 
rement sur 16 bits, c'est-à-dire que le rapport signal à 
bruit de quantification varie beaucoup avec le niveau : 12 
bits auraient suffi avec un codage pseudo- exponentiel. 

Aucun algorithme d'extrapolation ou de suppression 
d'échantillon n'a été employé. Par contre, la suppression 
des erreurs est irréprochable, au prix d'une redondance de 
deux. 

c) Télévision 

Il y a ici une énorme redondance, que ce soit entre 

points, lignes et images. De plus, les plans sont souvent 
fixes ou quasiment : défilement, effet zoom. 
Comme le plus souvent un mobile se déplace sur fond 
fixe, il suffit de transmettre ou de chercher en mémoire le 
fond démasqué. Rien n'interdit de penser qu'avec de 
nouveaux processeurs il serait possible d'obtenir une 
télévision numérique haute définition moins gourmande 
en informauon que les appareils actuellement à l'étude. 
Moralité : les laboratoires ont encore du pain sur la 
planche ! 

Une petite anecdote pour conclure : lors de son pas- 
sage entre Saturne et Uranus, la sonde Voyager IT a reçu 
un programree de compression de l'information qui à ain- 
si fait gapner un facteur 2 dans Îc débit de transmission. 
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GESTION DU CLAVIER, 


Le noyau F83 fourni par JEDI n'assigne pas les 
touches fonctions et curseur du clavier. Ceci va 
nous permettre de le reconfigurer à notre guise: à 
une touche sera affecté un mot FORTH, et cette 
affectation pourra être modifiée. Nous disposerons 
ainsi d'un clavier standard, d'un clavier éditeur, 
etce.e 


La ré-affectation peut se faire dans un programme. 
Par exemple, les touches F1 à F10 auront des 
fonctions différentes dans le MENU, l'AFFICHAGE ou 
la RECHERCHE. 


Il existe cependant des limitations: 
(ou un 


- une touche pré-définie sous MSDOS 


programme tel que NEWKEY) ne peut plus être 
redéfinie; | 
- la taille de la table des codes dans MSDOS est 


limitée. 


La modification des touches se fait facilement à 
l'aide des codes d'échappement ANSI dont le 
fichier ANSI.SYS est fourni avec MSDOS (rappelons 
qu'il doit figurer dans CONFIG.SYS). La syntaxe en 
est: 


Î 
\ VIDEO et CLAVIER, 


LOAD 
LOAD 
LOAD 
LOAD 
LOAD 


\ vidéo 

\ clavier. 

\ codes clavier “standard”. 
\ codes clavier "éditeur". 
\ configuration du systèse. 


DO OCON —œ C4 PO = 
œuns 


DEFER CLAVIER 
18? CLAV-STD JS CLAVIER CLAVIER \ configuration standard. 


12 S VIENS CLAVIER.BLK \ place ce fichier dans VIEN-FILES 


13 
[L 
15 
2 

8 \ VIDEO. 

l 

2: VDO (Sn ---: code, cf. “osbre 

3 27 ENIT 91 EMIT EMIT 189 EMIT ; \ ESCC*n's 
4 

52 ATIB (Sa --- : attribut d'écran, cf. "osbre" } 
6 27 EMIT 91 EMIT EMIT 184 ENIT ; \ ESCL"n"h 

7 

8 : RETBEC ( retour au mode B8125, couleurs } 

9  SUATIB; 

19 

11 : RETB8N ( retour au aode 88125, aonochrone } 

12 S8 ATTB ; 

13 

14 --) 

15 
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150ctB63aD \ VIDEO. 


F83 sous MSDOS 


ESC [ <ancien-code>;<couveau-code>p 
ou bien 
ESC [ <ancien-code>;"chaîne";..,;<e..»p 


ASCII 
forme 


Les codes des touches fonctions sont en 
étendu, "ancien-code" est toujours de la 
O;NN ; voir écrans 16 et 17. 


Le programme proposé commence par s'occuper de 
l'affichage. IL suffit d'envoyer à l'écran les 
codes vidéo convenables. Les mots curseur seront 
utiles pour l'affectation des touches de 
déplacement. 


affectées ici: 


les touches n'ont pas été 
utilisation 


elles sont laissées libres pour une 
personnelle. 


La méthode s'applique bien entendu à toutes les 
touches du clavier. Mais si vous midifiez une 
touche alphanumérique, vous risquez de grosses 


surprises. 
Les écrans ombre contiennent tous les 
renseignements nécessaires à la syntaxe et 


l'utilisation des mots créés. 


par A.JACCOMARD ‘290ct86 


18 
\ VIDEO et CLAVIER, JaD@80ct86 
Ce pgs perset le contrôle de l’affichage ( vidéo inversée, 
caractères gras, ..… } et des cossandes du curseur. 
Les séquences d'échappement ANSI sont utilisées: le fichier 
ANSI.SYS doit donc être sur le disque, et la consande 
DEVICE = ANSI.SYS placée dans Le fichier CONFIG.5YS, 
La syntaxe en est: 
pour une sodification de touche 
ESC { ancien_code ; nouveau code p 
pour une affectation de touche 
ESC € codez"chaîne"; ... p 


Ex.: ESCI65:8lp resplace "A" par "Q* (c'est assez dangereux) 
ESCCA; 79; "CAPACITY 1- LIST" ;13p l'appui sur la touche 
CIL-Fin fait afficher le dernier écran du fichier courant. 


il 
150ct86Jad 


n = 48 : affichage norsal ( par défaut ); 
9 : caractères gras ; 

; : soulignés ; 

! à clignotants ; 

: vidéo inversée ; 

: caract. non affichés. 


VDO (5n---) 


L 
$ 
5 
o) 
] 


3 3 3 = 2 
CORRE CL 


2 
3 
S 
6 


ATIB (Sn---) n= 08: écran 4825, aonochrose ; 

couleurs ; 

88125, sonochrose ; 
* “couleurs ; 

: 3281208, couleurs ; 

: d sonochrose ; 


6481288, aonochrose. 


23322323 


CORRE COLIS CCC 


l 
2 
3 
8 
$ 
6 
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8 \ CURSEUR. 159ct86JaD \ CURSEUR. 150ct86JaD 
l 
2 3 CURS (S n --- ) 27 (CONSOLE) 91 (CONSOLE) (CONSOLE) ; CLS cosse DARK, sans aodifier les attributs d'écran, 
3 
4: CLS 58 CURS 74 (CONSOLE) 5 \ ESCC 2J CURS n = 115 : sauvegarde position curseur ; 
$ n = 117 : retour à position sauvegardée, 
&: C-HT (5 --- } C-HT déplace curs. vers Le haut de une ligne ; 
7 A9 CURS 465 (CONSQUE) ; \ ESCC "1" À 
8: C-BAS (5 --- } C-BAS de aêae, vers le bas ; 
9 49 CURS 66 (CONSOLE) ; \ ESCC *1" 8 
18 : C-DR (S --- ) C-DR de fee, vers la droite, de un caract, 
IL 49 CURS 67 (CONSOLE) ; \ ESCC "1" C 
{2 + C-GCH (S --- ) C-6CH de aêse, vers la gauche. 


49 CURS 68 (CONSOLE) 3 \ ESCC “l" D 


--) 
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8 \ CURSEUR. 150ct86JaD \ CURSEUR. 150ct86JaD 
{ 

2 2 EFF-DEB 49 CURS 74 (CONSOLE) 3  \ ESC E 19 EFF-DEB efface l'écran depuis le coin supérieur g. jusqu'au 

J curseur inclus. 

4: EFF-FIN 74 CURS ; \ESCIJ EFF-FIN efface l'écran depuis curseur inclus jusqu'à fin écran 
$ 

6: EFF-LI6 75 CURS ; \ESCK EFF-LIG efface la ligne courante. 

7 

8: EFF-0-LI6 49 CURS 75 (CONSOLE) ; \ ESC € 1K EFF-D-LI6 efface début de Ligne à curseur inclus. 


5 EFF-F-LI6 58 CURS 75 (CONSOLE) 3; À ESC € 2K EFF-F-LI6 efface de curseur à fin de ligne. 


5 14 
8 \ Reconfiguration clavier : ,k et MODIF. JaD@80ct86 \ Reconfiguration clavier : ,k et MODIF. 150ct86JaD 
1 
25 à ($S--- ) \ place le texte suivant ds dict.; "k" délis. % est un alias du sot ," du noyaus ce dernier est inutili- 
3 ASCII & PARSE 32 SKIP \ supprise Les "blancs" en tête. sable ici, à cause du délisiteur * . Prend le texte 
4 HERE PLACE ; \ place texte en HERE. suivant du flat d'entrée (clavier ou blac} et le place 
$ à HERE. 
6: MODIF (S --- ) \ sodif. une touche. 
Th HERE COUNT BOUNDS 27 EMIT  9{ EMIT \ pr ESC MODIF peraet une sodification rapide d’une touche, si on 
8 200 LE CE EMIT LOOP ; connait son code. Par exeaple, pour affecter à La touche 
9 CTL-HOME, de code étendu 8;119, la fonction LISTING, 
10 --} entrez 
il NODIF 6,119; "LISTING";13p suivi de ENTER, 


et la touche CTL-HOME est ré-affectée, 


UNE TOUCHE AFFECTEE SOUS HS-D0S NE PEUT PLUS ETRE RE-AFFECTEE. 


[] 45 
8 \ Reconfiguration clavier : CONFIG. 130ct84JaD \ Reconfiguration clavier : CONFIG. 150ct86JaD 
{ ; 
2: CONFIG (Sn -- : nbr de touches à aodifier }) CONFIG (5 n --- nos) } aot de définition. 
3 L PENOUGH CREATE DUWP C, 0 Crée une entrée dans Le dictionnaire, et y place le 
4 ?00 texte suivant du flat d'entrée (clavier ou bloc). 
Fc] ù HERE C@ L+ ALLOT \ sise à jour DP. À l'exécution, le aot (non) espile son adresse, 
b LOGP et son contenu est eais vers le tersinal. 
J  DOES) 
B COUNT 8 \ le sot créé dépose son adr sur la pile. 
9 ?00 
| 27 ENIT 91 ENIT \ pour ESEL 


nl COUNT 2OUP + -ROT BOUNDS \ calcule adr car. suivant. 
12 ?00 1 C8 ENIT LODP 
LO0P DROP ; 
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® \ Reconfiguration clavier : CLAV-STD. 


l 

2 28 CONFIG CLAV-STD 
3 8,59;"€ “pt 

A bis" "pu 

S 63; "OPEN "pt 

6 8;65;" EDIT"; 13pà 
7 6;67;" . ‘pt 

8 85715"";1apt 

9 0:73;"8 L'il3pt 
18 8:75; °C-6CH°; 13pt 
11 6:79; "FILE ?"; 13pt 


0;68;" Ce "pt 
8,62," C1 “pu 
0:64," LIST"; 13ph 
@;663° INDEX"; 13p4 
8:68," .S°;13pt 
8:72; "C-HT"5;13pt 
8:77;"C-DR";L3pt 
4:88; "C-BAS";13pt 
841; "N L'it3p 


12 6:82;*° CLAV-ED 15 CLAVIER CLAVIER"; L3ph 


13 8:83; DARK"; 1 3ph 
14 
15 


8 \ Reconfiguration clavier : CLAV-ED, 


Î 

2 17 CONFIG CLAV-ED 
3 @,715"1 LIST"; 13pt 
40:73;"B L';t3pt 

5 6:75;° L'l3pt 


6 8795" CAPACITY 2/ LIST"; 13p4 


7 G815°N L's13pt 


9 @114; "pt 
18 8:116; "pu 
11 d; 119: "pt 


8:72;"A B L“s13pt 
0;77;"A L';13pt 
8:88; "A N L';L3pt 


8:83; "NIPE"; 13pk 
8 @:825;"? CLAV-STD 15 CLAVIER CLAVIER"; 13pt 
01153" "pt 
8,118; ""pt 
@:132;""pt 


20 JEDI no 


prie namenmmmmmennenenmesemmemeenenne : 

Ü  IBN Multistation 5550 HE #Æ@ A PL 1] 

Version 1.01 l 

DC) Copyright IBM Corp. 1984, 1985 | o 01 
; 


Produced by 
IBM Tokyo Scientific Center 
IBM Maÿrid Scientific Center 


il 


(Continved) 


Cityra.='k M 
Q 
(Cityn.s'Xk M 


Datai(Citya.s" 


6788 6793 9346 


fasLookup p 


83117; "CAPACITY L- LIST“; 13pt 


‘hat 
x M 
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nors. 
4,59 
8:68 
CHA 
B;62 
CAM 
8:64 
4,65 
8:66 
8:67 


F8 0:68 


17 


Hose 
Curs, q 4:75 


8,71 


shift 
4,84 
8,85 
4,86 
8,87 
CHE 
8:89 
6,90 
8:91 
4:92 
8,99 


Cl-curs, g 85115 


Fin 


4,79 


Curs. bas 0:88 


PgUp 
Pgln 


Ins 


Annul 


9:73 


8,8! 
8,82 
8,83 


CTL-IapEc @;114 


TAB 


"had; 


a+Datal(Citya.*phil:) 


CLEA VS 2) 9 
City MM LÉMXAXM A0 Lookur ‘ÆN ‘ 
City 3835 5194 8309 
32 */Loukup ‘#6 
City-4 3eCity 17338 
Cit 
& ty PAIUEO 
CAE Qui1 SeAIUEO 
x & TAPER Er 
E 4 eHNDAUESL x 
City Est TT 
LE a thihiaTtE 
LITE] DFENVRODOEXS 
ns À AIUEO4Yosi 
«City Aire 
PET LE City {AIUEOS Yon 
F6 ME LE 
# UNE NN Pre a 4 
You EE 5 #2 Het CNE | 
YoniYosi UNE tReportiinxipi 
ne 1}  inx*AIUEO4Yoni 
eYoni [2] p-Citylinxi] n 
EN hEHR PLILIABDdE ‘31 Sont se 
oai*4 Setoni Se pere : 
Yosi , 
E5+a5 Pb PU 
ne U 
É à Report 
Fees x 46.788 
: LE 1.316 
Data-?74 369999 FL 3,835 
Data ; 
1316 7556 4587 ss 85328 
5328 2190 47] ei 17.267 


9 
Y555,553"4Dota 


City 
LAS Y1,316 N7,556 v4,587 
& & M Y5.328 #2,190 471 
x M 6.788 V6,793 Y9,316 
#4 #3,835 #5,194 y8.309 


PE 


FH 


d 


8:15 


AMEL RATU — 
HETET-s Ut) 
3'4d 
#555,553's+/[1)d 
6.793 9,346 
47,556 4,587 
5.194 8,309 
2.190 471 
#21,733 V22,713 
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ctl- 
CHI] 
8,95 
0:96 
8597 
4:98 
8,99 
CAUT 
8; 18! 
8,102 
8183 


20ct8bJaD \ Reconfiguratian clavier : codes touches fonctions. 


alt- 
CHLL 
CHATS 
CHU 
8;107 
CHUE 
8:189 
4;114 
CHI 
9:112 
CHER 


230ct86JaD \ Reconfiquration clavier : codes tauches fonctions. 


CTL-Hone 
Curs. dr 
CTL-curs, dr 85116 
CTE-Fin 
Curs, haut 8:72 
CTL-Pgup 
CTL-PgDn 


180ct86JaD 


150ct86Ja) 


JEHDI présente en exclusivité 
le document qui a fait la 
réputation d'illisibilité de 
l'APL. Un programmeur bien 
structuré qui passait par là, 
a déclaré l'APL "illisible" à 


tout jamais. 


En fait, il y avait de l'APL, 


mais aussi du japonais. 


Tous 


les langages (y compris l'APL 


et le japonais) ont ceci 
commun, c'est que tant qu'on 
ne les connais pas, 


comprend rien. 


en 


on n'y , 


… 


